program Index;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i: Integer;
  mass: array of Integer;
  a: ^Integer;

begin
  SetLength (mass, 100);
  a:=@mass;
  New (a);
  for i:=0 to 99 do
  begin
    mass[i]:=i;
  end;
  Dispose (a);
end.
